home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / kreis zeichnen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  598b  |  25 lines
  1. 40397 rem ************************
  2. 40398 rem * hires-kreis zeichnen *
  3. 40399 rem ************************
  4. 40400 if x1<0 or x1>319 then return
  5. 40410 if y1<0 or y1>199 then return
  6. 40420 mu=0:xm=319:rf=1:gosub 40550:rem ** kreis zeichnen **
  7. 40430 return
  8. 40497 rem ************************
  9. 40498 rem * multi-kreis zeichnen *
  10. 40499 rem ************************
  11. 40500 if x1<0 or x1>159 then return
  12. 40510 if y1<0 or y1>199 then return
  13. 40520 mu=1:xm=159:rf=2:gosub 40550
  14. 40530 return
  15. 40535 rem
  16. 40540 rem *** kreis zeichnen ***
  17. 40545 rem
  18. 40550 for xw=0 to 2*(NULL) step 2*(NULL)/(r*6)
  19. 40555 y=sin(xw)*r+y1:x=cos(xw)*r/rf+x1
  20. 40560 if y<0 or y>199 then 40590
  21. 40570 if x<0 or x>xm  then 40590
  22. 40580 if mu=0 then sys 49204,x,y,f:goto 40590
  23. 40585 sys 49607,f,x,y
  24. 40590 next xw:return
  25.